/FILN, OPTIMIZATION 
/TITLE, OPTIMIZATION OF TANK1

!(1)
H1=298.5                     ! ͷĸ߶298.5 MM
B1=44.5                      ! ͷڰ뾶44.5 MM
T2=23                        ! ͷں
B2=B1+T2                     ! ͷ뾶44.5+23MM
R1=185                       ! ڰ뾶185MM
T1=18                        ! ں
R2=R1+T1                     ! 뾶203MM
DENS=7.8E-6                  ! ܶȲ(Kg/mm^3)


/PREP7                       ! ǰģ
!(2)嵥Ԫ͡ϲʵ
ET,1,PLANE82                     ! 1൥Ԫ8ڵάʵ嵥Ԫ
KEYOPT,1,3,1                     ! 嵥ԪΪԳѡ
MP,EX,1,207E3                    ! 1ϵĵģΪ207GPA
MP,NUXY,1,0.3                    ! 1ϵĲɱNUXY=0.3

!(3)߽ϵĹؼ
K,1,B1,H1                    ! ͷʼڲĵ
K,2,B2,H1                    ! ͷʼĵ
K,3,B1,SQRT(R1*R1-B1*B1)     ! ͷڲߺ͹ߵĽ
K,4,B2,SQRT(R2*R2-B2*B2)     ! ͷߺ͹ߵĽ
K,5,R1,0                     ! ͹ڲཻ
K,6,R2,0                     ! ͹ཻ
K,7,0,0                      ! ԭ
K,8,R1,-1000+H1              ! ضڲ
K,9,R2,-1000+H1              ! ض
K,10,0,H1                    ! ͷʼ˶Գϵĵ
!(4)Χɽṹߣ
L,1,2                        ! ͷʼˮƽ
L,1,3                        ! ͷڲֱ
L,2,4                        ! ͷֱ
L,5,8                        ! ڲ
L,8,9                        ! ضλˮƽ
L,6,9                        ! 
LARC,5,3,7,R1                    ! 5ţ3Źؼ㣬7ŹؼΪԲģR1Ϊ뾶Բ
LARC,6,4,7,R2                    ! 6ţ4Źؼ㣬7ŹؼΪԲģR2Ϊ뾶Բ
LFILLT,2,7,63, ,                 ! 2ţ7ߣ԰뾶63MMڲλõĵԲ
LFILLT,3,8,40, ,                 ! 3ţ8ߣ԰뾶40MMλõĵԲ
AL,ALL                           ! ΧɵΪһ

!(5)λԼͺ 
DL,5,,SYMM                       ! 5߶Գλ
SFL,2,PRES,23, , , ,             ! ߵڲ2ʩѹ23MPA
SFL,4,PRES,23, , , ,             ! ߵڲ4ʩѹ23MPA
SFL,7,PRES,23, , , ,             ! ߵڲ7ʩѹ23MPA
SFL,9,PRES,23, , , ,             ! ߵڲ9ʩѹ23MPA
SFL,1,PRES,-17.681,              ! ˲ͷˮƽʩӷͷݹ-17.681MPA
ESIZE,5                          ! ָԪߴСΪ5MM
AMESH,1                          ! 1ʷΪ浥Ԫ
FINISH                           ! ˳ǰģ
!(6)ģ
/SOLU                            ! ģ
SOLVE                            ! ʼ
FINISH                           ! ˳ģ

!(7)ģ鴦
/POST1                           ! ģ
PLNSOL,S,EQV                     ! ʾMISESӦֲ


ETABLE,EVOL,VOLU                 ! ÿһԪ뵥ԪEVOL
SSUM                             ! ԵԪ
*GET,VTOT,SSUM,,ITEM,EVOL        ! ȡṹܵ
*SET,WT,DENS*VTOT                ! 趨Ӧ

NSORT,S,EQV                      ! ڵЧӦ
*GET,SMAX,SORT,,MAX              ! ȡڵЧӦֵ

LGWRITE,TANK_YOUHUA,LGW,,COMMENT ! 洢Żļ
FINISH  

!(8)Żģ
/OPT                             ! Ż
OPANL,'TANK_YOUHUA','LGW'        ! ָļ
OPVAR,T1,DV,16,19                ! ŻT1
OPVAR,T2,DV,21,25                ! ŻT2

OPVAR,SMAX,SV,,250               ! ״̬SMAX<250MPA 
OPSAVE,'TANK_YOUHUA','OPT'       ! Żļ
OPVAR,WT,OBJ,,,0.02              ! ŻĿ꺯
SAVE,TANK_OPT_MODEL              ! DBļ

OPTYPE,FIRS                      ! Żʽ 
OPFRST,20,,,                     ! Ż
OPEXE                            ! ִŻ
OPLIST,ALL,,,1                   ! бʾ
PLVAROPT,T1,T2                   ! ͼʾƱT1T2Żı仯
PLVAROPT,SMAX                    ! ͼʾ״̬SMAXŻı仯
PLVAROPT,WT                      ! ͼʾĿ꺯Żı仯
